home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / Eudora 1.3.1 / source / ends.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-16  |  26.7 KB  |  1,016 lines  |  [TEXT/MPS ]
  1. #define FILE_NUM 12
  2. /* Copyright (c) 1990-1992 by the University of Illinois Board of Trustees */
  3. /**********************************************************************
  4.  * initialization and cleanup
  5.  **********************************************************************/
  6. #pragma load EUDORA_LOAD
  7. #pragma segment Ends
  8.     void SettingsInit(UPtr name);
  9.     void OpenSettingsFile(UPtr name);
  10.     void FindMyDirectory(UPtr name);
  11.     void PutUpMenus(void);
  12.     void CreateBoxes(void);
  13.     void SetupInsurancePort(void);
  14.     int GetAppFileVRef(UPtr name);
  15.     void SetRunType(void);
  16.     Boolean ModernSystem(void);
  17.     void BoxFolder(long dirId,MenuHandle *menus, Str31 *badNames, short badCount,
  18.                                  UPtr newText, short *level);
  19.     void RemoveBoxMenus(void);
  20.     void MakeHmnusPurge(void);
  21.     void TrashHmnu(void);
  22.     void OpenPlugIns(void);
  23.     Boolean UsingNewTables(void);
  24. /**********************************************************************
  25.  * Initialize - set up my stuff as well as the Mac managers
  26.  **********************************************************************/
  27. void Initialize(void)
  28. {
  29.     Str63 name;
  30.     MacInitialize(16,20K);             /* initialize mac managers */
  31.     SetRunType();                             /* figure out what kind of run this is */
  32.     if (!ModernSystem()) WarnUser(OLD_SYSTEM,0);
  33.     OpenPlugIns();
  34.     FindMyDirectory(name);            /* find the mail folder */
  35.     MakeGrow(SPARE_SIZE);             /* reserve some memory for emergencies */
  36.     SetGrowZone(GrowZone);            /* let the mac know it's there */
  37.     SettingsInit(*name ? name:nil);
  38. #ifdef PERF
  39.     ThePGlobals = nil;
  40.     if (!InitPerf(&ThePGlobals,10,8,True,True,"\pCODE",0,"",False,0,0,0))
  41.         WarnUser(PERFORMANCE,1);
  42. #endif
  43. } 
  44.  
  45. /************************************************************************
  46.  * SettingsInit - Initialize with a settings file
  47.  ************************************************************************/
  48. void SettingsInit(UPtr name)
  49. {
  50.     Str255 scratch;
  51.     
  52.     if (CurrentSize()+10K<EstimatePartitionSize()) MemoryWarning();
  53.     POPSecure = False;
  54.     OpenSettingsFile(name);         /* open our settings file */
  55.     AlertsTimeout = PrefIsSet(PREF_AUTO_DISMISS);
  56.     UseCTB = PrefIsSet(PREF_TRANS_METHOD);
  57.     CurTrans = UseCTB ? CTBTrans : TCPTrans;
  58.     FigureOutFont();                        /* figure out what font && size to use */
  59.     CreateBoxes();                            /* create In and Out boxes, for later use */
  60.     PutUpMenus();                             /* menus */
  61.     PageSetup = nil;                        /* remind me to go get that */
  62.     TOCList = nil;                            /* no open TOC's yet */
  63.     MessList = nil;                         /* no open messages yet */
  64.     SetSendQueue();                         /* set SendQueue if there are queued messages */
  65.     EnableMenus(nil);                     /* enable appropriate items */
  66.     WrapWrong = CountResources('Rong') > 0;
  67.     GetPref(scratch,PREF_POP); UUPCIn = *scratch && scratch[1]=='!';
  68.     GetPref(scratch,PREF_SMTP); UUPCOut = *scratch && scratch[1]=='!';
  69.     LogLevel = GetRLong(PREF_STRN+PREF_LOG);
  70.     FakeTabs = PrefIsSet(PREF_TAB_IN_TEXT);
  71.     NewTables = UsingNewTables();
  72.     
  73.     if (!(MouseRgn = NewRgn())) DieWithError(MEM_ERR,MemError());
  74.     GetRString(NewLine,UseCTB ? CTB_NEWLINE : NEWLINE);
  75.  
  76. #ifndef KERBEROS
  77.     /*
  78.      * saved password?
  79.      */
  80.     if (PrefIsSet(PREF_SAVE_PASSWORD))
  81.     {
  82.         GetPref(Password,PREF_PASS_TEXT);
  83.         GetPref(SecondPass,PREF_AUXPW);
  84.     }
  85.     else
  86.         InvalidatePasswords(False,False);
  87. #endif
  88.     POPSecure = False;
  89.  
  90.     /*
  91.      * Bring Out Yer Dead!
  92.      */
  93.     RecallOpenWindows();
  94.     
  95.     /*
  96.      * run initial check
  97.      */
  98.     if (!EjectBuckaroo && GetRLong(PREF_STRN+PREF_INTERVAL) && !(CurrentModifiers()&optionKey))
  99.         CheckForMail(True);
  100. }
  101.  
  102. /************************************************************************
  103.  * UsingNewTables - are we using the new translit table scheme?
  104.  ************************************************************************/
  105. Boolean UsingNewTables(void)
  106. {
  107.     Boolean found=False;
  108.     Handle table;
  109.     short ind=0;
  110.     Str255 name;
  111.     short id;
  112.     ResType type;
  113.     
  114.     SetResLoad(False);
  115.     while (table=GetIndResource('taBL',++ind))
  116.     {
  117.         GetResInfo(table,&id,&type,&name);
  118.         if (found=(id<1001||id>1003)&&*name) break;
  119.     }
  120.     SetResLoad(True);
  121.     return(found);
  122. }
  123.  
  124. /************************************************************************
  125.  * OpenNewSettings - open a new settings file, closing things out
  126.  * properly first
  127.  ************************************************************************/
  128. void OpenNewSettings(short vRef,long dirId,UPtr name)
  129. {
  130.     Str31 folder;
  131.     short menu;
  132.     MenuHandle mHandle;
  133.     
  134.     /*
  135.      * a simulated Quit
  136.      */
  137.     DoQuit();
  138.     if (!AmQuitting) return;
  139.     Done = False;
  140.     
  141.     /*
  142.      * let's get rid of some stuff
  143.      */
  144.     RemoveBoxMenus();
  145.     for (menu=APPLE_MENU;menu<MENU_LIMIT;menu++)
  146.     {
  147.         if (mHandle=GetMHandle(menu)) DisposeMenu(mHandle);
  148.     }
  149.     ClearMenuBar();
  150.         
  151.     ZapHandle(Aliases);
  152.     
  153.     /*
  154.      * Now, point us at the right directory
  155.      */
  156.     MyVRef = vRef;
  157.     MyDirId = dirId;
  158.     HSetVol(nil,MyVRef,MyDirId);
  159.     HGetVol(folder,&MyVRef,&MyDirId);
  160.     MyVRef = GetMyWD(0,MyDirId);
  161.     
  162.     /*
  163.      * keep yer fingers crossed...
  164.      */
  165.     SettingsInit(name);
  166. }
  167.  
  168. /************************************************************************
  169.  * SetRunType - figure out from the name of the app whether we're prod-
  170.  * uction, testing, or my private version.    This is a HACK.
  171.  ************************************************************************/
  172. void SetRunType(void)
  173. {
  174. #ifdef DEBUG
  175.     Str255 appName;
  176.     short appRefNum;
  177.     Handle apParam;
  178.     
  179.     GetAppParms(appName,&appRefNum,&apParam);
  180.     
  181.     switch (appName[1])
  182.     {
  183.         case 'P': RunType=Steve;break;
  184.         case 'e': RunType=Debugging;break;
  185.         default: RunType=Production;break;
  186.     }
  187. #else
  188.     RunType=Production;
  189. #endif DEBUG
  190. }
  191.  
  192. /**********************************************************************
  193.  * do what we need before exiting functions
  194.  **********************************************************************/
  195. void Cleanup()
  196. {
  197. #ifdef    KERBEROS
  198.                 extern void         cplus_cleanup();
  199. #endif
  200.     TrashHmnu();
  201.     if (SettingsRefN) CloseResFile(SettingsRefN);
  202.     (void) CloseResolver();
  203.     if (DestroyTrans) (void) DestroyTrans();
  204. #ifndef SLOW_CLOSE
  205.     TcpFastFlush(True);
  206. #endif
  207.     CloseLog();
  208.     FlushVol(nil,MyVRef);
  209. #ifdef    KERBEROS
  210.                 cplus_cleanup();
  211. #endif
  212. #ifdef PERF
  213.     {
  214.         int err;
  215.         if (err=PerfDump(ThePGlobals,"\pPerform.Out",False,0))
  216.             WarnUser(PERFORMANCE,err);
  217.         TermPerf(ThePGlobals);
  218.     }
  219. #endif
  220. }
  221.  
  222.  
  223. /**********************************************************************
  224.  * figure out what font and size to use
  225.  **********************************************************************/
  226. void FigureOutFont()
  227. {
  228.     Str255 fontName;
  229.     Str255 applFontName;
  230.     Str255 fontSizeStr;
  231.     long aLong;
  232.     
  233.     /*
  234.      * which font?
  235.      */
  236.     if (IUEqualString(GetPref(fontName,PREF_FONT_NAME),
  237.                         GetRString(applFontName,APPL_FONT)) ==0)
  238.         FontID = 1;
  239.     else
  240.         FontID = GetFontID(fontName);
  241.         
  242.     /*
  243.      * how big?
  244.      */
  245.     StringToNum(GetPref(fontSizeStr,PREF_FONT_SIZE),&aLong);
  246.     FontSize = aLong;
  247.     
  248.     /*
  249.      * and how big is big?
  250.      */
  251.     FontWidth = GetWidth(FontID,FontSize);
  252.     FontLead = GetLeading(FontID,FontSize);
  253.     FontDescent = GetDescent(FontID,FontSize);
  254.     FontAscent = GetAscent(FontID,FontSize);
  255.     FontIsFixed = IsFixed(FontID,FontSize);
  256.     
  257.     /*
  258.      * and get the widths of boxes
  259.      */
  260.     GetBoxLines();
  261.     
  262.     /*
  263.      * create a spare port for necessities
  264.      */
  265.     SetupInsurancePort();
  266. }
  267.  
  268. /**********************************************************************
  269.  * open (or create) the settings file
  270.  **********************************************************************/
  271. void OpenSettingsFile(UPtr name)
  272. {
  273.     Str255 settingsName;
  274.     Handle appVersion;
  275.     Handle prefVersion;
  276.     short appRefN;
  277.     int err;
  278.     FInfo info;
  279.     
  280.     /*
  281.      * close it if it's open
  282.      */
  283.     if (SettingsRefN) CloseResFile(SettingsRefN);
  284.     
  285.     /*
  286.      * we'll create it before we open it, to avoid the PMSP
  287.      */
  288.     if (name && *name && !HGetFInfo(MyVRef,MyDirId,name,&info) && 
  289.             info.fdType==SETTINGS_TYPE && info.fdCreator==CREATOR)
  290.         PCopy(settingsName,name);
  291.     else GetRString(settingsName,SETTINGS_FILE);
  292.     if (err=MakeResFile(settingsName,MyVRef,MyDirId,CREATOR,SETTINGS_TYPE))
  293.         DieWithError(CREATE_SETTINGS,err);
  294.     
  295.     /*
  296.      * grab some stuff from the application resource file first
  297.      */
  298.     if ((appVersion = GetResource(CREATOR,1))==nil)
  299.         DieWithError(READ_SETTINGS,ResError());
  300.     appRefN = HomeResFile(appVersion);
  301.     
  302.     /*
  303.      * now, open the preferences file
  304.      */
  305.     if ((SettingsRefN=OpenResFile(settingsName))==nil)
  306.         DieWithError(OPEN_SETTINGS,ResError());
  307.         
  308.     /*
  309.      * copy the preferences into it if need be
  310.      * "need be" means either the resources aren't now there,
  311.      * or the program version has changed since last time the
  312.      * preferences file was written.
  313.      */
  314.     if ((prefVersion = GetResource(CREATOR,1))==nil)
  315.         DieWithError(READ_SETTINGS,ResError());
  316.         
  317.     if (HomeResFile(prefVersion)!=SettingsRefN ||
  318.             !EqualString(*prefVersion,*appVersion,False,False))
  319.     {
  320.         ReleaseResource(prefVersion);
  321.         if (err=ResourceCpy(SettingsRefN,appRefN,CREATOR,1))
  322.             DieWithError(WRITE_SETTINGS,err);
  323.         if (err=ResourceCpy(SettingsRefN,appRefN,'STR#',PREF_STRN))
  324.             DieWithError(WRITE_SETTINGS,err);
  325.         UpdateResFile(SettingsRefN);
  326.         if (ResError()) DieWithError(WRITE_SETTINGS,ResError());
  327.     }
  328.     else
  329.     {
  330.         ReleaseResource(prefVersion);
  331.         ReleaseResource(appVersion);
  332.     }
  333. }
  334.  
  335. /**********************************************************************
  336.  * FindMyDirectory - find the directory for us in the system folder.
  337.  * If it doesn't exist, create it.
  338.  **********************************************************************/
  339. void FindMyDirectory(UPtr name)
  340. {
  341.     DirInfo myDI;
  342.     Str31 folder;
  343.     int err=0;
  344.     SysEnvRec env;
  345.     
  346.     MyDirId = 0;
  347.     *folder = 0;
  348.     if (!(MyVRef = GetAppFileVRef(name)))
  349.     {
  350.         SysEnvirons(ENVIRONS_VERSION,&env);
  351.         
  352.         /*
  353.          * now, look for our directory
  354.          */
  355. #ifdef DEBUG
  356.         GetRString(folder,RunType==Steve ? STEVE_FOLDER : FOLDER_NAME);
  357. #else
  358.         GetRString(folder,FOLDER_NAME);
  359. #endif DEBUG
  360.         myDI.ioNamePtr = folder;
  361.         myDI.ioVRefNum = MyVRef = env.sysVRefNum;
  362.         myDI.ioFDirIndex = 0;
  363.         myDI.ioDrDirID = 0;
  364.         err=PBGetCatInfo(&myDI,False);
  365.         if (err==fnfErr)                                /* it doesn't exist */
  366.         {     
  367.             if (err=DirCreate(MyVRef,0,folder,&MyDirId))
  368.                 DieWithError(CREATE_FOLDER,err);
  369.         }
  370.         else if (myDI.ioFlAttrib&0x10)
  371.             MyDirId = myDI.ioDrDirID;
  372.         else
  373.             DieWithError(NO_PLAIN_OPEN,0);
  374.     }
  375.     if (err) DieWithError(MAIL_FOLDER,err);
  376.     if (HSetVol(folder,MyVRef,MyDirId))
  377.         HSetVol(nil,MyVRef,MyDirId);
  378.     HGetVol(folder,&MyVRef,&MyDirId);
  379.     MyVRef = GetMyWD(0,MyDirId);
  380. }
  381.     
  382. /**********************************************************************
  383.  * PutUpMenus - set up the menu bar
  384.  **********************************************************************/
  385. void PutUpMenus()
  386. {
  387.     int menu;
  388.     MenuHandle mHandle,savedMHandle;
  389.     Boolean touchedTo = False;
  390.     Str63 scratch;
  391.     
  392.     /*
  393.      * add the standard ones
  394.      */
  395.     for (menu=APPLE_MENU;menu<MENU_LIMIT;menu++)
  396.     {
  397.         if (mHandle=GetMHandle(menu)) DisposeMenu(mHandle);
  398.         mHandle = GetMenu(menu+1000);
  399.         if (mHandle==nil)
  400.             DieWithError(GET_MENU,MemError());
  401.         InsertMenu(mHandle,0);
  402.     }
  403.     if (mHandle=GetMHandle(WINDOW_MENU)) DisposeMenu(mHandle);
  404.     mHandle = GetMenu(WINDOW_MENU+1000);
  405.     if (mHandle==nil)
  406.         DieWithError(GET_MENU,MemError());
  407.     InsertMenu(mHandle,0);
  408. #ifdef DEBUG
  409.     if (RunType!=Production) InsertMenu(GetMenu(DEBUG_MENU+1000),0);
  410. #endif
  411.     
  412.     /*
  413.      * take care of special menus
  414.      */
  415.     mHandle = GetMHandle(APPLE_MENU);
  416.     AddResMenu(mHandle,'DRVR');
  417.     BuildBoxMenus();                        /* build the menus that refer to Mailboxes */
  418.  
  419.     /*
  420.      * the user menus
  421.      */
  422.     AttachHierMenu(MESSAGE_MENU,MESSAGE_NEW_TO_ITEM,NEW_TO_HIER_MENU);
  423.     AttachHierMenu(MESSAGE_MENU,MESSAGE_REPLY_TO_ITEM,REPLY_TO_HIER_MENU);
  424.     AttachHierMenu(MESSAGE_MENU,MESSAGE_FORWARD_TO_ITEM,FORWARD_TO_HIER_MENU);
  425.     AttachHierMenu(MESSAGE_MENU,MESSAGE_REDIST_TO_ITEM,REDIST_TO_HIER_MENU);
  426.     AttachHierMenu(EDIT_MENU,EDIT_INSERT_TO_ITEM,INSERT_TO_HIER_MENU);
  427.     AttachHierMenu(SPECIAL_MENU,SPECIAL_REMOVE_TO_ITEM,REMOVE_TO_HIER_MENU);
  428.     if (!(savedMHandle = GetMenu(NEW_TO_HIER_MENU+1000)))
  429.     {
  430.         if (savedMHandle = GetMenu(NEW_TO_HIER_MENU+900))
  431.         {
  432.              SetResInfo(savedMHandle,NEW_TO_HIER_MENU+1000,"");
  433.              touchedTo = True;
  434.         }
  435.         else
  436.         {
  437.             if (savedMHandle = NewMenu(NEW_TO_HIER_MENU,""))
  438.             {
  439.                 MyAppendMenu(savedMHandle,GetRString(scratch,S_DORNER));
  440.                 AddResource(savedMHandle,'MENU',NEW_TO_HIER_MENU+1000,"");
  441.                 touchedTo = True;
  442.             }
  443.             else
  444.                 DieWithError(GET_MENU,MemError());
  445.         }
  446.     }
  447.     for (menu=NEW_TO_HIER_MENU;menu<=INSERT_TO_HIER_MENU;menu++)
  448.     {
  449.         mHandle = savedMHandle;
  450.         if (menu>NEW_TO_HIER_MENU) HandToHand(&mHandle);
  451.         if (mHandle!=nil)
  452.         {
  453.             (*mHandle)->menuID=menu;
  454.             InsertMenu(mHandle,-1);
  455.         }
  456.         else
  457.             DieWithError(GET_MENU,MemError());
  458.     }
  459.     if (touchedTo) ToMenusChanged();
  460.     
  461.     /*
  462.      * hier menus
  463.      */
  464.     mHandle = GetMenu(FIND_HIER_MENU+1000);
  465.     if (mHandle==nil) DieWithError(GET_MENU,menu);
  466.     InsertMenu(mHandle,-1);
  467.     mHandle = GetMenu(SORT_HIER_MENU+1000);
  468.     if (mHandle==nil) DieWithError(GET_MENU,menu);
  469.     InsertMenu(mHandle,-1);
  470.     
  471.     /*
  472.      * draw the menu bar
  473.      */
  474.     DrawMenuBar();
  475.     
  476.     /*
  477.      * install the menuhook
  478.      */
  479. #ifdef DEBUG
  480.     if (RunType != Production)
  481.         *(long *) 0xa30 = (long)Hook;
  482. #endif
  483. }
  484.  
  485. /**********************************************************************
  486.  * BuildBoxMenus - build the mailbox menus according to the files in
  487.  * our mailbox folder.
  488.  **********************************************************************/
  489. void BoxFolder(long dirId,MenuHandle *menus,Str31 *badNames, short badCount,
  490.                              UPtr newText, short *level)
  491. {
  492.     typedef struct
  493.         {Str31 name; Boolean isDir; long dirId;} NameType, *NamePtr, **NameHandle;
  494.     HFileInfo hfi;
  495.     NameType thisOne;
  496.     NameHandle names;
  497.     short count=0,i,item,dirItem;
  498.     MenuHandle newMenus[MENU_ARRAY_LIMIT];
  499.     Str31 namePtrFodder;
  500.     Str15 suffix;
  501.     Str15 tmpsuffix;
  502.     
  503.     /*
  504.      * make sure we're kosher
  505.      */
  506.     if (*level>MAX_BOX_LEVELS)
  507.         DieWithError(TOO_MANY_LEVELS,*level);
  508.     PtrAndHand(&dirId,BoxMap,sizeof(long));
  509.  
  510.     /*
  511.      * get started
  512.      */
  513.     if ((names=NuHandle(0L))==nil)
  514.         DieWithError(ALLO_MBOX_LIST,MemError());
  515.     hfi.ioNamePtr = namePtrFodder;
  516.     hfi.ioFDirIndex = 0;
  517.     GetRString(suffix,TOC_SUFFIX);
  518.     GetRString(tmpsuffix,TEMP_SUFFIX);
  519.     /*
  520.      * read names of mailbox files
  521.      */
  522.     while (!DirIterate(MyVRef,dirId,&hfi))
  523.     {
  524.         if (dirId==MyDirId)
  525.             for (i=0;i<badCount;i++)
  526.                 if (EqualString(badNames[i],hfi.ioNamePtr,False,True)) goto nextfile;
  527.         if (!(hfi.ioFlAttrib&0x10))
  528.         {
  529.             if (hfi.ioFlFndrInfo.fdType!=MAILBOX_TYPE) continue;
  530.             if (*hfi.ioNamePtr>*tmpsuffix && EndsWith(hfi.ioNamePtr,tmpsuffix))
  531.                 TempWarning(hfi.ioNamePtr);
  532.             if (*hfi.ioNamePtr>31-*suffix)
  533.             {
  534.                 TooLong(hfi.ioNamePtr);
  535.                 continue;
  536.             }
  537.         }
  538.         PCopy(thisOne.name,hfi.ioNamePtr);
  539.         thisOne.isDir = hfi.ioFlAttrib&0x10;
  540.         thisOne.dirId = hfi.ioDirID;
  541.         PtrAndHand (&thisOne,names,sizeof(thisOne));
  542.         if (MemError()) DieWithError(ALLO_MBOX_LIST,MemError());
  543.         count++;
  544.         nextfile:;
  545.     }
  546.     
  547.     /*
  548.      * add the New item
  549.      */
  550.  AppendMenu(menus[TRANSFER],newText);
  551.  
  552.     /*
  553.      * stick them into the proper menus
  554.      */
  555.     for (item=0;item<count;item++)
  556.     {
  557.         thisOne = (*names)[item];
  558.         if (thisOne.isDir) continue;
  559.         MyAppendMenu(menus[MAILBOX],thisOne.name);
  560.         GetRString(thisOne.name,TRANSFER_PREFIX);
  561.         PCat(thisOne.name,(*names)[item].name);
  562.         MyAppendMenu(menus[TRANSFER],thisOne.name);
  563.     }
  564.     for (item=0;item<count;item++)
  565.     {
  566.         thisOne = (*names)[item];
  567.         if (!thisOne.isDir) continue;
  568.         MyAppendMenu(menus[MAILBOX],thisOne.name);
  569.         GetRString(thisOne.name,TRANSFER_PREFIX);
  570.         PCat(thisOne.name,(*names)[item].name);
  571.         MyAppendMenu(menus[TRANSFER],thisOne.name);
  572.         thisOne = (*names)[item];
  573.         for (i=0;i<MENU_ARRAY_LIMIT;i++)
  574.         {
  575.             dirItem = i*MAX_BOX_LEVELS+*level+1;
  576.             if (!(newMenus[i] = NewMenu(dirItem,thisOne.name)))
  577.                 DieWithError(ALLO_MBOX_LIST,MemError());
  578.             AttachHierMenu((*menus[i])->menuID,CountMItems(menus[i]),dirItem);
  579.             InsertMenu(newMenus[i],-1);
  580.             if (HasHelp && *level && !Get1Resource('hmnu',dirItem))
  581.             {
  582.                 Handle mHand=GetResource('hmnu',i*MAX_BOX_LEVELS+1);
  583.                 Handle newHand=mHand;
  584.                 if (mHand && !HandToHand(&newHand))
  585.                 {
  586.                     AddResource(newHand,'hmnu',dirItem,"");
  587.                     SetResAttrs(newHand,resChanged|resPurgeable);
  588.                 }
  589.             }
  590.         }
  591.         (*level)++;
  592.         BoxFolder(thisOne.dirId,newMenus,badNames,badCount,newText,level);
  593.         if (MemError()) DieWithError(ALLO_MBOX_LIST,MemError());
  594.     }
  595.     DisposHandle(names);
  596. }
  597.  
  598. /************************************************************************
  599.  * TempWarning - warn the user about a temp file in his mailbox structure
  600.  ************************************************************************/
  601. void TempWarning(UPtr filename)
  602. {
  603.     Str255 msg;
  604.     GetRString(msg,TEMP_WARNING);
  605.     MyParamText(msg,filename,"","");
  606.     ReallyDoAnAlert(OK_ALRT,Caution);
  607. }
  608.  
  609. /**********************************************************************
  610.  * BuildBoxMenus - build the mailbox menus according to the files in
  611.  * our mailbox folder.
  612.  **********************************************************************/
  613. void BuildBoxMenus()
  614. {
  615.     short badIndices[] = {IN,OUT,ALIAS_FILE,TRASH,LOG_NAME,OLD_LOG};
  616.     Str31 badNames[sizeof(badIndices)/sizeof(short)];
  617.     Str31 newText;
  618.     MenuHandle menus[MENU_ARRAY_LIMIT];
  619.     short level=0,i;
  620.     
  621.     if (BoxMap!=nil) RemoveBoxMenus();
  622.     if ((BoxMap=NuHandle(0L))==nil)
  623.         DieWithError(ALLO_MBOX_LIST,MemError());
  624.     for (i=0;i<sizeof(badIndices)/sizeof(short);i++)
  625.       GetRString(badNames[i],badIndices[i]);
  626.     GetRString(newText,NEW_ITEM_TEXT);
  627.             
  628.     /*
  629.      * stick them into the proper menus
  630.      */
  631.     menus[MAILBOX] = GetMHandle(MAILBOX_MENU);
  632.     menus[TRANSFER] = GetMHandle(TRANSFER_MENU);
  633.     
  634.     /*
  635.      * now, do the recursive thing
  636.      */
  637.     BoxFolder(MyDirId,menus,badNames,sizeof(badNames)/sizeof(Str31),
  638.                         newText,&level);
  639.     if (HasHelp) MakeHmnusPurge();
  640.     BuildBoxCount();
  641.     DrawMenuBar();
  642. }
  643.  
  644. /************************************************************************
  645.  * RemoveBoxMenus - get a clean slate
  646.  ************************************************************************/
  647. void RemoveBoxMenus(void)
  648. {
  649.     DisposHandle(BoxMap); BoxMap = nil;
  650.     TrashHmnu();
  651.     CheckBox(nil);
  652.     TrashMenu(GetMHandle(MAILBOX_MENU),MAILBOX_BAR1_ITEM+1);
  653.     TrashMenu(GetMHandle(TRANSFER_MENU),TRANSFER_NEW_ITEM);
  654. }
  655.  
  656. /************************************************************************
  657.  * TrashHmnu - get rid of the help resources for subfolders
  658.  ************************************************************************/
  659. void TrashHmnu(void)
  660. {
  661.     short i,n;
  662.     Handle hHand;
  663.     
  664.     n = GetHandleSize(BoxMap)/sizeof(long);
  665.     SetResLoad(False);
  666.     for (i=2;i<=n;i++)
  667.     {
  668.         if (hHand=Get1Resource('hmnu',i))
  669.         {
  670.             RmveResource(hHand);
  671.             DisposHandle(hHand);
  672.         }
  673.         if (hHand=Get1Resource('hmnu',i+MAX_BOX_LEVELS))
  674.         {
  675.             RmveResource(hHand);
  676.             DisposHandle(hHand);
  677.         }
  678.     }
  679.     SetResLoad(True);
  680.     UpdateResFile(CurResFile());
  681. }
  682.  
  683. /************************************************************************
  684.  * MakeHmnusPurge - make sure we can purge the Hmnus
  685.  ************************************************************************/
  686. void MakeHmnusPurge(void)
  687. {
  688.     short i,n;
  689.     Handle hHand;
  690.     
  691.     /*
  692.      * first off, get them written out
  693.      */
  694.     UpdateResFile(CurResFile());
  695.     
  696.     /*
  697.      * trash 'em
  698.      */
  699.     n = GetHandleSize(BoxMap)/sizeof(long);
  700.     SetResLoad(False);
  701.     for (i=1;i<=n;i++)
  702.     {
  703.         if (hHand=Get1Resource('hmnu',i))
  704.             ReleaseResource(hHand);
  705.         if (hHand=Get1Resource('hmnu',i+MAX_BOX_LEVELS))
  706.             ReleaseResource(hHand);
  707.     }
  708.     SetResLoad(True);
  709. }
  710.  
  711. /************************************************************************
  712.  * TrashMenu - get rid of a menu, beginning at a particular item
  713.  ************************************************************************/
  714. void TrashMenu(MenuHandle mh, short beginAtItem)
  715. {
  716.     short count,id,item;
  717.     MenuHandle subMh;
  718.     
  719.     if (!mh) return;
  720.     for (count=CountMItems(mh),item=beginAtItem?beginAtItem:1;item<=count;item++)
  721.         if (HasSubmenu(mh,item))
  722.         {
  723.             GetItemMark(mh,item,&id);
  724.             subMh = GetMHandle(id);
  725.             TrashMenu(subMh,0);
  726.             SetItemCmd(mh,item,0);
  727.             DeleteMenu(id);
  728.             DisposeMenu(subMh);
  729.         }
  730.     if (beginAtItem>0)
  731.         while (count>=beginAtItem) DelMenuItem(mh,count--);
  732. }
  733.  
  734. /**********************************************************************
  735.  * CreateBoxes - Create the "In" and "Out" mailboxes if need be
  736.  **********************************************************************/
  737. void CreateBoxes()
  738. {
  739.     Str63 name;
  740.     int err;
  741.     
  742.     GetRString(name,IN);
  743.     if (err=MakeResFile(name,MyVRef,MyDirId,CREATOR,MAILBOX_TYPE))
  744.         DieWithError(CREATING_MAILBOX,err);
  745.     GetRString(name,OUT);
  746.     if (err=MakeResFile(name,MyVRef,MyDirId,CREATOR,MAILBOX_TYPE))
  747.         DieWithError(CREATING_MAILBOX,err);
  748.     GetRString(name,TRASH);
  749.     if (err=MakeResFile(name,MyVRef,MyDirId,CREATOR,MAILBOX_TYPE))
  750.         DieWithError(CREATING_MAILBOX,err);
  751.     GetRString(name,ALIAS_FILE);
  752.     if (err=MakeResFile(name,MyVRef,MyDirId,CREATOR,'TEXT'))
  753.         DieWithError(CREATING_ALIAS,err);
  754. }
  755.  
  756. /**********************************************************************
  757.  * GetBoxLines - read the horizontal widths of the various mailbox
  758.  * data areas.
  759.  **********************************************************************/
  760. void GetBoxLines(void)
  761. {
  762.     Handle strn;
  763.     int count;
  764.     Str255 scratch;
  765.     long rightSide;
  766.     short last=0;
  767.     short offset=0;
  768.     short i;
  769.     
  770.     strn=GetResource('STR#',BOX_LINES_STRN);
  771.     if (strn==nil) DieWithError(GENERAL,ResError());
  772.     
  773.     count = *((short *)*strn);
  774.     
  775.     if (!BoxLines) BoxLines = NuHandle(count*sizeof(short));
  776.     if (BoxLines==nil) DieWithError(MEM_ERR,MemError());
  777.     
  778.     for(i=0;i<count;i++)
  779.     {
  780.         StringToNum(GetRString(scratch,BOX_LINES_STRN+i+1),&rightSide);
  781.         if (rightSide<=last) {rightSide=last; offset+=3;}    /* for zero, make 3 pixels */
  782.         last = rightSide;
  783.         (*BoxLines)[i] = FontWidth*rightSide+offset;
  784.     }
  785. }
  786.  
  787. /************************************************************************
  788.  * SetSendQueue - preload the SendQueue global with the number of queued
  789.  * messages.
  790.  ************************************************************************/
  791. void SetSendQueue(void)
  792. {
  793.     TOCType **tocH;
  794.     int sumNum;
  795.     uLong gmtSecs = GMTDateTime();
  796.     
  797.     SendQueue = 0;
  798.     ForceSend = 0xffffffff;
  799.     if (!(tocH=GetOutTOC())) return;
  800.     for (sumNum=0; sumNum<(*tocH)->count; sumNum++)
  801.         if ((*tocH)->sums[sumNum].state == QUEUED)
  802.         {
  803.           if ((*tocH)->sums[sumNum].seconds &&
  804.                 (*tocH)->sums[sumNum].seconds < ForceSend)
  805.                 ForceSend = (*tocH)->sums[sumNum].seconds;
  806.           if ((*tocH)->sums[sumNum].seconds <= gmtSecs) SendQueue++;
  807.         }
  808. }
  809.  
  810. /************************************************************************
  811.  * SetupInsurancePort - create a grafport for use when others are unavailable
  812.  ************************************************************************/
  813. void SetupInsurancePort(void)
  814. {
  815.     if (!InsurancePort)
  816.     {
  817.         InsurancePort = New(GrafPort);
  818.         if (!InsurancePort) DieWithError(MEM_ERR,MemError());
  819.         OpenPort(InsurancePort);
  820.     }
  821.     SetPort(InsurancePort);
  822.     TextFont(FontID);
  823.     TextSize(FontSize);
  824. }
  825.  
  826. /************************************************************************
  827.  * GetAppFileVRef - get the vrefn of the file that launched us
  828.  ************************************************************************/
  829. int GetAppFileVRef(UPtr name)
  830. {
  831.     short message,count;
  832.     AppFile aFile;
  833.     
  834.     *name = 0;
  835.     CountAppFiles(&message,&count);
  836.     if (!count) return(0);
  837.     
  838.     GetAppFiles(1,&aFile);
  839.     PCopy(name,aFile.fName);
  840.     return(aFile.vRefNum);
  841. }
  842.  
  843. /************************************************************************
  844.  * ModernSystem - is the system 6.0.4 or better?
  845.  ************************************************************************/
  846. Boolean ModernSystem(void)
  847. {
  848.     SysEnvRec env;
  849.     long resp;
  850.  
  851.     HasHelp = !Gestalt(gestaltHelpMgrAttr,&resp) &&
  852.                                         resp&(1L<<gestaltHelpMgrPresent);
  853.     HasPM = !Gestalt(gestaltOSAttr,&resp) && resp&(1L<<gestaltLaunchControl);
  854.     if (HasPM && !Gestalt(gestaltAUXVersion, &resp))
  855.         HasPM = (resp>>8)>=3;
  856.     SysEnvirons(ENVIRONS_VERSION,&env);
  857.     return(env.systemVersion >= 0x0604);
  858. }
  859.  
  860. typedef struct
  861. {
  862.     short wType;                    /* window type */
  863.     long dirId;                     /* if any */
  864.     short index;                    /* if any */
  865.     Str31 volName;                /* if any */
  866.     Str31 name;                     /* if any */
  867.     Str31 alias;                    /* if any */
  868. } DejaVu, **DejaVuPtr, **DejaVuHandle;
  869. #define DEJA_VU_TYPE 'dJvU'
  870.  
  871. void RememberOpenWindows(void)
  872. {
  873.     DejaVuHandle dvh;
  874.     DejaVu dv;
  875.     short ind;
  876.     MyWindowPtr win;
  877.     TOCHandle tocH;
  878.     MessHandle messH;
  879.     TextDHandle textH;
  880.     extern FindClose();
  881.     
  882.     /*
  883.      * out with the old
  884.      */
  885.     SetResLoad(False);
  886.     while (dvh=Get1IndResource(DEJA_VU_TYPE,1))
  887.     {
  888.         RmveResource(dvh);
  889.                 DisposHandle(dvh);
  890.     }
  891.     SetResLoad(True);
  892.     
  893.     /*
  894.      * save each window
  895.      */
  896.     ind = 1000;
  897.     for (win=FrontWindow();win;win=win->qWindow.nextWindow)
  898.         if (IsMyWindow(win) && win->qWindow.visible)
  899.                 {
  900.                     dv.wType = win->qWindow.windowKind;
  901.                     if (win->close==FindClose) dv.wType = FIND_WIN;
  902.                     switch (dv.wType)
  903.                     {
  904.                         case MBOX_WIN:
  905.                         case CBOX_WIN:
  906.                             tocH = (TOCHandle) win->qWindow.refCon;
  907.                             PCopy(dv.name,(*tocH)->name);
  908.                             dv.dirId = (*tocH)->dirId;
  909.                             break;
  910.                         case MESS_WIN:
  911.                         case COMP_WIN:
  912.                             messH = (MessHandle) win->qWindow.refCon;
  913.                             tocH = (TOCHandle) (*messH)->tocH;
  914.                             PCopy(dv.name,(*tocH)->name);
  915.                             dv.index = (*messH)->sumNum;
  916.                             dv.dirId = (*tocH)->dirId;
  917.                             break;
  918.                         case TEXT_WIN:
  919.                             textH = (TextDHandle) win->qWindow.refCon;
  920.                             PCopy(dv.name,(*textH)->fileName);
  921.                             PCopy(dv.alias,*win->qWindow.titleHandle);
  922.                             GetMyVolName((*textH)->vRef,dv.volName);
  923.                             PCatC(dv.volName,':');
  924.                             dv.dirId = GetMyDirID((*textH)->vRef);
  925.                             break;
  926.                         case ALIAS_WIN:
  927.                         case MB_WIN:
  928.                         case FIND_WIN:
  929.                         case PH_WIN:
  930.                             break;
  931.                     }
  932.                     if (dvh=NuHandle(sizeof(dv)))
  933.                     {
  934.                         BlockMove(&dv,*dvh,sizeof(dv));
  935.                                 AddResource(dvh,DEJA_VU_TYPE,++ind,"");
  936.                                 ReleaseResource(dvh);
  937.                     }
  938.                 }
  939. }
  940.  
  941. /************************************************************************
  942.  * RecallOpenWindows - reopen windows there when we quit
  943.  ************************************************************************/
  944. void RecallOpenWindows(void)
  945. {
  946.     short ind;
  947.     DejaVuHandle dvh;
  948.     DejaVu dv;
  949.     TOCHandle tocH;
  950.     short vRef;
  951.     
  952.     for (ind=1000+Count1Resources(DEJA_VU_TYPE);!EjectBuckaroo && ind>1000;ind--)
  953.     {
  954.         if (dvh=Get1Resource(DEJA_VU_TYPE,ind))
  955.         {
  956.             ActivateMyWindow(FrontWindow(),False);
  957.             dv = **dvh;
  958.             ReleaseResource(dvh);
  959.             switch (dv.wType)
  960.             {
  961.                 case MBOX_WIN:
  962.                 case CBOX_WIN:
  963.                     if (FindDirLevel(dv.dirId)>=0)    /* don't open boxes not in tree */
  964.                         (void) GetMailbox(dv.dirId,dv.name,True);
  965.                     break;
  966.                 case MESS_WIN:
  967.                 case COMP_WIN:
  968.                     if (FindDirLevel(dv.dirId)>=0 &&    /* don't open boxes not in tree */
  969.                           (tocH = TOCByName(dv.dirId,dv.name)) && dv.index<(*tocH)->count)
  970.                         GetAMessage(tocH,dv.index,nil,True);
  971.                     break;
  972.                 case TEXT_WIN:
  973.                     vRef = GetMyVR(dv.volName);
  974.                     if (!OpenWD(vRef,dv.dirId,nil,&vRef))
  975.                         OpenText(vRef,dv.name,nil,True,dv.alias);
  976.                     break;
  977.                 case ALIAS_WIN:
  978.                     OpenAliases();
  979.                     break;
  980.                 case MB_WIN:
  981.                     OpenMBWin();
  982.                     break;
  983.                 case FIND_WIN:
  984.                     DoFind(FIND_FIND_ITEM);
  985.                     break;
  986.                 case PH_WIN:
  987.                     OpenPh();
  988.                     break;
  989.             }
  990.         }
  991.         MonitorGrow();
  992.     }
  993. }
  994.  
  995. /************************************************************************
  996.  * OpenPlugIns - open extra Eudora resource files
  997.  ************************************************************************/
  998. void OpenPlugIns(void)
  999. {
  1000.   short vRef;
  1001.     long dirId;
  1002.     HFileInfo hfi;
  1003.     Str31 name;
  1004.   if (!FindFolder(kOnSystemDisk,kPreferencesFolderType,False,&vRef,&dirId))
  1005.     {
  1006.       hfi.ioFDirIndex = 0;
  1007.         hfi.ioNamePtr = name;
  1008.         while(!DirIterate(vRef,dirId,&hfi))
  1009.         if (hfi.ioFlFndrInfo.fdType==PLUG_TYPE &&
  1010.             hfi.ioFlFndrInfo.fdCreator==CREATOR)
  1011.         {
  1012.             if (!HOpenResFile(vRef, dirId, name, fsRdPerm))
  1013.               FileSystemError(OPEN_SETTINGS,name,ResError());
  1014.         }
  1015.     }
  1016. }